home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Music / A / Audio Tester.cpt / New Audio Spelling Tester / Teacher Stack / stack_-1.xml < prev    next >
Extensible Markup Language  |  1992-08-30  |  2KB  |  21 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>14820</cardID>
  8.     <listID>2574</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstackstart using stack "Audio Spelling Tester"put "" into cd field "keyboards" of cd 2getPath flnmput the result  & "kbds.txt" into tgtopen file tgtrepeatread from file tgt until returnif it is empty then exit repeatput it after cd field "keyboards" of cd 2end repeatclose file tgtend openstackon closestackstop using stack "Audio Spelling Tester"end closestackfunction Rdy recTimeput (recTime / 60) into RecSecsreturn 1end Rdyon arrowkey directionend arrowkeyon apSave fileNameend apSaveon idleif audiopalette is in the windows then set the visible of window audiopalette to falseend idleon getPath tgtput the long name of this stack into tgtdelete word 1 of tgtdelete char 1 of tgtrepeat with x = the number of chars of tgt down to 1if char x of tgt = ":" then exit repeatdelete char x of tgtend repeatreturn tgtend getPath</script>
  17.     <background id="6814" file="background_6814.xml" name="" />
  18.     <card id="14820" file="card_14820.xml" marked="false" name="record" owner="6814" />
  19.     <card id="4069" file="card_4069.xml" marked="false" name="recording options" owner="6814" />
  20. </stack>
  21.